home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 4 / MacMania 4.toast / / Tools&Utilities / NLphoneCheck 2.0 / NLphoneCheck2.0 / FMPR v3.x / Variant ;'s / NLphoneCheck1.1E;'s (.txt) next >
FileMaker Pro Database  |  1996-04-17  |  37KB  |  521 lines
  1. HBAM2016AUG95
  2. Pro 3.0
  3. 49273
  4. 49276
  5. 49277
  6. 49501
  7. 49502
  8. 49503
  9. 49504
  10. 49505
  11. 49507
  12. 49508
  13. 49512
  14. 49513
  15. x*=Dz|k
  16. j$p/=
  17. ""1QPhqX
  18. alisA
  19. HBAM3016AUG95
  20. JJLcheckData
  21. ^("0,."&
  22. )*10^6 
  23. 4)="3450"
  24. ^("0,."&
  25. )*10^6 
  26. 4)="3480"
  27. ^("0,."&
  28. )*10^6 
  29. 4)="4132"
  30. ^("0,."&
  31. )*10^6 
  32. 4)="4160"
  33. ^("0,."&
  34. )*10^6 
  35. 4)="4167"
  36. ^("0,."&
  37. )*10^6 
  38. 4)="4180"
  39. ^("0,."&
  40. )*10^6 
  41. 4)="4927"
  42. ^("0,."&
  43. )*10^6 
  44. 4)="4950"
  45. ^("0,."&
  46. )*10^6 
  47. 4)="4951"
  48. ^("0,."&
  49. )*10^6 
  50. 4)="8360"
  51. ^("0,."&
  52. )*10^6 
  53. 4)="8851"
  54. ^("0,."&
  55. )*10^7 
  56. 5)="4
  57. F2572"
  58. ^("0,."&
  59. )*10^7 
  60. 5)="42575"
  61. ^("0,."&
  62. )*10^7 
  63. 5)="42577"
  64. ^("0,."&
  65. )*10^7 
  66. 5)="42578"
  67. ^("0,."&
  68. )*10^7 
  69. 5)="42579"
  70. ^("0,."&
  71. )*10^7 
  72. ^("0,."&
  73. )*10^7 
  74. 5)="42576"
  75. ^("0,."&
  76. )*10^7 
  77. ^("0,."&
  78. )*10^6 
  79. 4) ))))
  80. "&TelOld)*10^7A
  81. JJLcheckData
  82. )*10^6 
  83. 2) ="80"
  84. ^("0,."&
  85. )*10^6 
  86. 2)="85"
  87. ^("0,."&
  88. )*10^6 
  89. 2) ="90"
  90. ^("0,."&
  91. )*10^6 
  92. ^("0,."&
  93. )*10^6 
  94. 2)="15"
  95. ^("0,."&
  96. )*10^6 
  97. 2)="23"
  98. ^("0,."&
  99. )*10^6 
  100. 2)="30"
  101. ^("0,."&
  102. )*10^6 
  103. 2)="33"
  104. ^("0,."&
  105. )*10^6 
  106. 2)="35"
  107. ^("0,."&
  108. )*10^6 
  109. 2)="38"
  110. ^("0,."&
  111. )*10^6 
  112. 2)="43"
  113. ^("0,."&
  114. )*10^6 
  115. 2)="45"
  116. ^("0,."&
  117. )*10^6 
  118. 2)="46"
  119. ^("0,."&
  120. )*10^6 
  121. 2)="53"
  122. ^("0,."&
  123. )*10^6 
  124. 2)="58"
  125. ^("0,."&
  126. )*10^6 
  127. 1)="6"  
  128. ^("0,."&
  129. )*10^6 
  130. 1)="7"
  131. ^("0,."&
  132. )*10^6 
  133. ^("0,."&
  134. &1)*10^(
  135. ^("0,."&
  136. &"; "
  137.  "; "
  138. 1))&1))-3))) < 8 
  139.                                 
  140. ^("0,."&
  141. )*10^6 
  142. 1)="6"
  143.                      
  144. ^("0,."&
  145. )*10^6 
  146. 4)="2907"
  147. ^("0,."&
  148. )*10^6 
  149. 4)="2990"
  150.     d <<<< F!
  151.     d >>>> F!2
  152.     -0  ?? F!
  153. Id@ntL@belB
  154.  A    Comment EB
  155. If(Position(TelOld;"O";1) 
  156.  1 and                               Position(TelOld;"O";1) < Position(TelOld & ";";";";1);                          "E: Letter O/o  
  157.   digit 0! F!"; If(Length(Int(TextToNum("0,."&TelB
  158. Old&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;                    Position(TelOld&"; "; "; "; 1))&1))-2)))  < 3 ;"Too few digits";                                             ! F!"; If(Length(Int(TextToNum("0,."&TelB
  159. Old&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;                    Position(TelOld&"; "; "; "; 1))&1))-2)))  < 3 ;"Too few digits";                                             
  160. 42575
  161. 42577
  162. JJLcheckData
  163.                        If(Left(TextToNum("1,."&TelOld)*1000 ;4) > 1090 and Left(TextToNum("1,."&TelOld)*1000 ;4)
  164. 1099 ;"Old intern. conv.";                                                   If((Position(TelOld;D
  165. "+";1) 
  166.  0 and TextToNum("0,."&TelOld) =            TextToNum("0,."&                                                                      Right(TelOld; Length(TelOld)- Position(TelOld;"+";1))))                 E
  167.                                                                or (TextToNum("0,."&TelOld) < 1/100) ; "OK: International";                                                           If(Left(@#1;1)=1 and (Length(F
  168. 1&TextToNum(TelOld)) - Length(TextToNum("0,."&                               Middle(TelOld;Position(TelOld & "; ";"; ";1);32)&1)))=2 ;                          "OK: New Euro nr";                                A
  169. JJLcheckData
  170.                                              If(1 = 1 ;"";" Nu test op lookup fout") &                                              If(@#2 = 0 ;"Area+subs. doesnt exist; or missing digits";                     H
  171.                          If((Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) = 8  and  Left(@#2;1) = 1 ); I
  172. "OK: New nr";                                If(1=1 ;"";"Now length check")  & If((Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&J
  173. "; "; "; "; 1))&1))-3))) 
  174.  Middle(@#2 ;3 ;1) and Left (@#2 ;1) < 5)  and (Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; "; "; A
  175. JJLcheckData
  176. "; 1))&1))-3))) 
  177.  8 or Left(@#2;1) 
  178.  1);                                                                              Abs(Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextTL
  179. oNum("0,."&Left(TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) - Middle(@#2 ;3 ;1))& " digit(s) to" & If((Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&LeftM
  180. (TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) - Middle(@#2 ;3 ;1)) <0 ; " short";  " long");                                                                               If(Middle(Int(TextToNum("0,."&TelOldN
  181. &1)* 10^(Length(TextToNum("0,."&TelOld&1))-2));                      (Middle(@#2 ;3 ;1)-Middle(@#2 ;2 ;1)+2);1) = 0 and               Left(@#2;1) < 5 ;"Abo nr begint met een 0";  "OK: " &                       A
  182. JJLcheckData
  183.          If(Left(@#2;1) > 4 ;If(Left (@#2 ;1) = 6 ;"06 Number";"") &     If(Left (@#2 ;1) = 8 ;"New Euro free info nr";"") &                   If(Left (@#2 ;1) = 9 ;"New Euro paid info nr";"");                 P
  184.      If(Left (@#2 ;1)  
  185.  1 ;"Old nr converted";"")  &                          If(Left (@#2 ;1) = 2 ;"New nr";"")&                                            If(Left (@#2 ;1) = 3 ;"Old and new; same dialling";"Q
  186. ")) )))))))))
  187. E: Letter O/o  
  188.   digit 0! F!'
  189. Too few digits'
  190. Old intern. conv.&
  191. OK: Inter
  192. JJLcheckData
  193. Perf HD
  194. JJLcheckData v3
  195. HFMP3FMP3
  196.     FMPR v3.x
  197. ZPerf HD:FileMaker Pro 3.0 Folder:NLphoneCheck2.0:NLphoneCheck2.0:FMPR v3.x:JJLcheckData v3
  198. Perf HD
  199. Perf HD
  200.  digit(s) to('
  201. OK: Inter
  202. JJLcheckData
  203. FMRLA
  204. JJLcheckData
  205. Abo nr begint met een 0'
  206. OK: &
  207. '    06 Number'
  208. New Euro free info nr'
  209. New EuroI
  210.  paid info nr'
  211. Old nr converted'
  212. New nr'
  213. Old and new; same dialling'
  214.  digit(s) to('
  215. OK: Inter
  216. JJLcheckData
  217. TelNew#2B
  218. 1) < 
  219.  & ";"
  220. "E: O/o  
  221.  0! F!"
  222. ^("0,."&
  223. &1)*10^(
  224. ^("0,."&
  225. &"; "
  226.  "; "
  227. 1))&1))-2))) < 3 
  228.  & "; "
  229. 1)+2 
  230.                              
  231. ^("1,."&
  232. )*1000 
  233. 4) > 1090 
  234. ^("1,."&
  235. )*1000 
  236.  1099 
  237. "00"&
  238. ^("0,."&
  239.  1099 ;       "00"&Right(TelOld; Length(TelOld)-2);               If((Position(TelOld;"+";1) 
  240.  0 and TextToNum("0,."&TelOld) =            D
  241. TextToNum("0,."&Right(TelOld; Length(TelOld)- Position(TelOld;"+";1)))) or (TextToNum("0,."&TelOld) < 1/100) or (Left(@#1;1)=1 and (Length(1&TextToNum(TelOld)) - Length(TextToNum("0,."&Middle(TelOld;Position(Teh/<
  242. JJLcheckData
  243.  Nu test op lookup fout2
  244. ?? / ? d >>>  F!
  245. Now length check2
  246.                     
  247. ^("0,."&
  248. &"; "
  249. 1)) &1)) - 4 
  250. ^("0,."&
  251.                                                     
  252. ^("0,."&
  253. &"; "
  254. 1)) &1)) - 3 
  255. 1))&" "& 
  256. ^("0,."&
  257.                                                     
  258. ^("0,."&
  259. &"; "
  260. 1))& 1)) - 2 
  261. 2))& 
  262. &"; "
  263. 32) ))))))))
  264. E: O/o  
  265.  0! F!
  266. 9)) > 4 
  267. "")& 
  268. &"; "
  269. 1) - 
  270. 1) = 6 
  271. 2) & 
  272. &"; "
  273. 1) - 
  274. 1) = 6 
  275. 9)) > 6 
  276.   " "
  277. "")& 
  278. &"; "
  279. 1) - 
  280. 1) = 6 
  281. 1))&                                          
  282. 1) > 4 
  283. ^("0,."&
  284.                                                     
  285. ^("0,."&
  286. &"; "
  287. 1)) &1)) -
  288. 1)-4)&" "
  289. 1)  > 3 
  290. ^("0,."&
  291.                                 
  292. 0,."&
  293. &1))-2))
  294.                             
  295. 1) - 
  296. 1) + 1)& "-0  ?? F!"
  297.                                                                                              "0"&
  298. 3))&"-"&
  299. 1) > 4 
  300. &"; "
  301. 1) - 
  302. 1) = 6 
  303. &"; "
  304. 1) - 
  305. 1) = 6 
  306. 9)) > 2 
  307. "")& 
  308. &"; "
  309. 1) - 
  310. 1) = 6 
  311. 2) & 
  312. &"; "
  313. 1) - 
  314. 1) = 6 
  315.                                                                                           
  316. 2(1=1 
  317. "Now length check")  & 
  318. ^("0,."&
  319. &1)*                                   10^(
  320. ^("0,."&
  321. &"; "
  322.  "; "
  323. 1))&1))-3))) 
  324. 1) < 5) 
  325. "E: " & 
  326. ^("0,."&
  327. &1)*                                   10^(
  328. ^("0,."&
  329. &"; "
  330.  "; "
  331. 1))&1))-3))) - 
  332. 1))& 
  333. ^("0,."&
  334. &1)*                                   10^(
  335. ^("0,."&
  336. &"; "
  337.  "; "
  338. 1))&1))-3))) -
  339. 1)) <0 
  340.  "d <<<< F!"
  341.   "d >>>> F!")
  342.                                                                                
  343. ^("0,."&
  344. &1)* 10^(
  345. ^("0,."&
  346. &1))-2))
  347.                       (
  348. 1)+2)
  349. 1) = 0 
  350. 1) < 5 
  351. "E: 0"&
  352. ^("0,."&
  353. &1)* 10^(
  354. 0,."&
  355. 1)))) 
  356. ^("0,."&
  357. ) < 1/100) 
  358. 1)=1 
  359. ^("0,."&
  360.  & "; "
  361. 32)&1)))=2)
  362.                                                                    
  363. 2(1 = 1 
  364. " Nu test op lookup fout") &
  365.  = 0 
  366. "E: 0"&
  367. ) < 4 
  368. 3))&"-"&
  369. ) < 4 
  370. 10)&"?? / ? d >>>  F!"
  371.                           
  372.                     
  373. ^("0,."&
  374. &1)*                                   10^(
  375. ^("0,."&
  376. &"; "
  377.  "; "
  378. 1))&1))-3))) = 8  
  379. 1) = 1)
  380. "0"& 
  381. ^("0,."&
  382. )*10^9 
  383. 3)) & "-" &
  384. ^("0,."&
  385. )*10^9 
  386. 2)) & " " & 
  387. ^("0,."&
  388. )*10^9 
  389. 2) & " " & 
  390. ^("0,."&
  391. )*10^10 
  392. &"; "
  393. 42572
  394. 42575
  395. 42577
  396. 42578
  397. 42579
  398. 42576
  399. 72222
  400. Now length check
  401. iddle(TelOld;Position(Teer
  402. JJLcheckData
  403. Pro 1.0F!
  404. Pro 3.0
  405. iddle(TelOld;Position(Teer
  406. JJLcheckData
  407. G    Comment EH
  408. TelNew#2I
  409. Id@ntL@bel
  410. !!!!!  To convert imported or already existing records
  411. you must select
  412. Relookup from the Edit Menu, 
  413. with the cursor in the (renamed?) field TelOld.  !!!!!!!
  414. TelOld
  415. iddle(TelOld;Position(Teer
  416. JJLcheckData
  417. Single
  418. SingleB
  419. iddle(TelOld;Position(Teer
  420. JJLcheckData
  421. TelOld
  422. 030 2222223F
  423. 2780300Q
  424. 030-222 22 23
  425. A    JJL/ShareB
  426. Users
  427. A    JJL/ShareB
  428. Users
  429.     Helvetica
  430. Monaco
  431. Chicago
  432. New Century Schlbk
  433. Geneva
  434. Courier
  435. Times
  436. Zapf Chancery
  437. entury Schlbk
  438. Geneva
  439. Courier
  440. Times
  441. Zapf Chancery
  442.     COMMENT E
  443. ID@NTL@BEL
  444. TELNEW#2
  445. TELOLD
  446. TelOldB
  447. ^("0,."&
  448. )*10^6 
  449. 2)="10"
  450. ^("0,."&
  451. )*10^6 
  452. 2)="13"
  453. ^("0,."&
  454. )*10^6 
  455. 2)="20"
  456. ^("0,."&
  457. )*10^6 
  458. 2)="24"
  459. ^("0,."&
  460. )*10^6 
  461. 2)="26"
  462. ^("0,."&
  463. )*10^6 
  464. 2)="36"
  465. ^("0,."&
  466. )*10^6 
  467. 2)="37"
  468. ^("0,."&
  469. )*10^6 
  470. 2)="40"
  471. ^("0,."&
  472. )*10^6 
  473.  "406")
  474. ^("0,."&
  475. )*10^6 
  476. 2)="50"
  477. ^("0,."&
  478. )*10^6 
  479. 2)="55"
  480. ^("0,."&
  481. )*10^6 
  482. 2)="70"
  483. ^("00
  484.     Helvetica
  485. Monaco
  486. Chicago
  487. New Century Schlbk
  488. Geneva
  489. Courier
  490. Times
  491. Zapf Chancery
  492. ZRPTH
  493. FPTHAZPerf HD:FileMaker Pro 3.0 Folder:NLphoneCheck2.0:NLphoneCheck2.0:FMPR v3.x:JJLcheckData v3
  494. MSPCA
  495. NAMEA
  496. JJLcheckData v3
  497. RPTHA
  498. ::JJLcheckData v3
  499. JJLcheckData
  500. Zondag
  501. Maandag
  502. Dinsdag
  503. Woensdag
  504.     Donderdag
  505. Vrijdag
  506. Zaterdag
  507. januari
  508. februari
  509. maart
  510. april
  511. augustus
  512.     september
  513. oktober
  514. november
  515. december
  516. 1st Quarter
  517. 2nd Quarter
  518. 3rd Quarter
  519. 4th Quarter
  520. 4/17/96
  521.